home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / commodity / newchange / install < prev    next >
Text File  |  1997-04-25  |  3KB  |  174 lines
  1. ; *******************************************************************
  2. ;
  3. ; $VER: Install_NewChange 1.3 (25.4.97)
  4. ; 
  5. ; Install script for NewChange copyright © 1996-1997 Martin Wulffeld
  6. ;
  7. ; *******************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11.  
  12. (set default_lang 64)
  13.  
  14. (set #bad-kick
  15. (cat "You must at least have Kickstart 3.0 to install NewChange!"
  16. ))
  17.  
  18. (set #copying-reqtools        "\nCopying reqtools.library 38.1436 to LIBS:...")
  19. (set #copying-newchangeexe    "\nCopying NewChange executable...")
  20. (set #copying-documentation    "\nCopying NewChange documentation...")
  21. (set #copying-regfiles        "\nCopying registration files...")
  22. (set #copying-catalogs        "\nCopying catalogs...")
  23. (set #select-dest            "Please select the path where you want to install NewChange. A drawer named NewChange will be created there.")
  24. (set #select-destguide        "Please select the path where you want to install the NewChange documentation. It has already been installed along with the main program.")
  25. (set #select-language       "Which languages should be installed?")
  26.  
  27. ;=============================================================================
  28. ; Make sure we are running under a 3.0 ROM
  29.  
  30. (if (< (/ (getversion) 65536) 39)
  31. (
  32.     (abort #bad-kick)
  33. ))
  34.  
  35. ;=============================================================================
  36.  
  37. ;*** Required libraries
  38.  
  39. (copylib
  40.     (prompt #copying-reqtools)
  41.     (help @copylib-help)
  42.     (source "Libs/reqtools.library")
  43.     (dest "LIBS:")
  44.     (confirm)
  45. )
  46.  
  47. ;*** NewChange executable
  48.  
  49. (set programdir
  50.     (tackon
  51.         (askdir
  52.             (prompt #select-dest)
  53.             (help @askdir-help)
  54.             (default "SYS:")
  55.             (newpath)
  56.         )
  57.         "NewChange"
  58.     )
  59. )
  60.  
  61. (set @default-dest programdir)
  62.  
  63. (copyfiles
  64.     (prompt #copying-newchangeexe)
  65.     (source "NewChange")
  66.     (dest programdir)
  67.     (infos)
  68. )
  69.  
  70. ;*** Copy Catalogs to NewChange dir for backup
  71.  
  72. (copyfiles
  73.     (prompt #copying-catalogs)
  74.     (source "")
  75.     (dest programdir)
  76.     (pattern "Catalogs#?")
  77. )
  78.  
  79. ;*** Copy registration files
  80.  
  81. (copyfiles
  82.     (prompt #copying-regfiles)
  83.     (source "")
  84.     (dest programdir)
  85.     (pattern "Registration#?")
  86. )
  87.  
  88. ;*** Documentation files
  89.  
  90. ; Backup
  91.  
  92. (copyfiles
  93.     (prompt #copying-documentation)
  94.     (source "")
  95.     (dest programdir)
  96.     (pattern "Documentation#?")
  97. )
  98.  
  99. ; Ask if documentation should be installed elsewhere
  100.  
  101. (set tempdocdir
  102.     (tackon
  103.         programdir
  104.         "Documentation"
  105.     )
  106. )
  107.  
  108. (set docdir
  109.     (askdir
  110.         (prompt #select-destguide)
  111.         (help @askdir-help)
  112.         (default tempdocdir)
  113.         (newpath)
  114.     )
  115. )
  116.  
  117. (copyfiles
  118.     (prompt #copying-documentation)
  119.     (source "Documentation/NewChange.guide")
  120.     (dest docdir)
  121.     (infos)
  122. )
  123.  
  124. ;*** Install locale file
  125.  
  126. (if (exists "SYS:Locale")
  127. (
  128.     (if (exists "LOCALE:")
  129.     (
  130.         (set lang (askoptions (prompt #select-language)
  131.                                 (help #which-language-help)
  132.                                 (choices
  133.                                     "Dansk"
  134.                                     "Italiano"
  135.                                     "Nederlands"
  136.                                     "Norsk"
  137.                                     "Suomi"
  138.                                     "Svenska"
  139.                                     "English")
  140.                                 (default default_lang)
  141.                     )
  142.         )
  143.         
  144.         (set n 0)
  145.         (while
  146.             (set language (select n
  147.                                 "dansk"
  148.                                 "italiano"
  149.                                 "nederlands"
  150.                                 "norsk"
  151.                                 "suomi"
  152.                                 "svenska"
  153.                                 "")
  154.             )
  155.         (
  156.             (if (IN lang n)
  157.             (
  158.                 (if (< n 7)
  159.                 (
  160.                     (makedir (cat "LOCALE:Catalogs/" language))
  161.                     (copyfiles (source (cat "Catalogs/" language))
  162.                                 (dest (cat "LOCALE:Catalogs/" language))
  163.                                 (all)
  164.                     )
  165.                 ))
  166.             ))
  167.             (set n (+ n 1))
  168.         ))
  169.     ))
  170. ))
  171.  
  172. (exit "Please reboot or flush your memory. Some older versions of the installed files might be present in memory."
  173. )
  174.